○二重起動の禁止

■VB.net

If UBound(Diagnostics.Process.GetProcessesByName( _
    Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
    end
End If

■VB6

If App.PrevInstance Then
　　Unload Me
　　End
End If

■VB6指定秒の待機

Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)

Sleep (1000)